home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANM1.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-03-09
|
11KB
|
355 lines
' COPYRIGHT:
'
' (C) Copyright Microsoft Corp. 1993. All rights reserved.
'
' You have a royalty-free right to use, modify, reproduce and
' distribute the Sample Files (and/or any modified version) in
' any way you find useful, provided that you agree that
' Microsoft has no warranty obligations or liability for any
' Sample Application Files which are modified.
'
Sub ClearPict1 ()
MainRec.A.A1 = ""
MainRec.A.A2 = ""
MainRec.A.A3 = ""
MainRec.A.A4 = ""
MainRec.A.A5 = ""
MainRec.A.A6 = ""
MainRec.A.A7 = ""
MainRec.A.AC1 = 0
UpdateLabelA
End Sub
Sub ClearPict2 ()
MainRec.B.B1 = ""
MainRec.B.B2 = ""
MainRec.B.B3 = ""
MainRec.B.B4 = ""
MainRec.B.B5 = ""
Form1.LabelB.Caption = ""
MainRec.C.C1 = ""
MainRec.C.C2 = ""
MainRec.C.C3 = ""
MainRec.C.C4 = ""
MainRec.C.C5 = ""
MainRec.C.CC1 = 0
For I = 1 To 5
Form1.LabelC(I).Caption = ""
Next I
MainRec.D.D1 = ""
MainRec.D.D2 = ""
MainRec.D.D3 = ""
MainRec.D.D4 = ""
MainRec.D.D5 = ""
MainRec.D.D6 = ""
For I = 1 To 6
Form1.LabelD(I).Caption = ""
Next I
MainRec.E.E1 = ""
MainRec.E.E2 = ""
MainRec.E.E3 = ""
MainRec.E.E4 = ""
MainRec.E.E5 = ""
For I = 1 To 5
Form1.LabelE(I).Caption = ""
Next I
Form1.Check1(1).Value = 0
Form1.Check1(2).Value = 0
MainRec.F.F1 = ""
MainRec.F.F2 = ""
MainRec.F.F3 = ""
MainRec.F.FC1 = 0
For I = 1 To 3
Form1.LabelF(I).Caption = ""
Next I
For I = 1 To 2
Form1.Check1(I).Value = 0
Next I
End Sub
Sub ClearPict3 ()
MainRec.G.G1 = ""
MainRec.G.G2 = ""
MainRec.G.G3 = ""
MainRec.G.G4 = ""
MainRec.G.G5 = ""
MainRec.G.G6 = ""
MainRec.G.G7 = ""
MainRec.G.G8 = ""
MainRec.G.GC1 = 0
For I = 1 To 8
Form1.LabelG(I).Caption = ""
Next I
MainRec.H.H1 = ""
MainRec.H.H2 = ""
MainRec.H.H3 = ""
MainRec.H.H4 = ""
MainRec.H.H5 = ""
MainRec.H.H6 = ""
MainRec.H.H7 = ""
MainRec.H.H8 = ""
MainRec.H.HC1 = 0
For I = 1 To 8
Form1.LabelH(I).Caption = ""
Next I
MainRec.I.B1 = ""
MainRec.I.B2 = ""
MainRec.I.B3 = ""
MainRec.I.B4 = ""
MainRec.I.B5 = ""
Form1.LabelI(1).Caption = ""
Form1.LabelI(2).Caption = ""
Form1.Label3(1).Caption = ""
Form1.Label3(2).Caption = ""
Form1.HEdit1.EraseInk = True
Form1.HEdit2.EraseInk = True
End Sub
Sub UpdateLabelA ()
Form1.LabelA(1).Caption = LTrim$(RTrim$(MainRec.A.A1))
Form1.LabelA(2).Caption = LTrim$(RTrim$(MainRec.A.A2))
Form1.LabelA(3).Caption = LTrim$(RTrim$(MainRec.A.A3))
Form1.LabelA(4).Caption = LTrim$(RTrim$(MainRec.A.A4))
Form1.LabelA(5).Caption = LTrim$(RTrim$(MainRec.A.A5))
Form1.LabelA(6).Caption = LTrim$(RTrim$(MainRec.A.A6))
If MainRec.A.AC1 <> 0 Then
Form1.LabelA(7).Caption = Form3.Check1(MainRec.A.AC1).Caption + " " + MainRec.A.A7
Else
Form1.LabelA(7).Caption = ""
End If
End Sub
Sub UpdateLabelB ()
Form1.LabelB.Caption = LTrim$(RTrim$(MainRec.B.B1)) + " " + LTrim$(RTrim$(MainRec.B.B2)) + ", " + LTrim$(RTrim$(MainRec.B.B3)) + " " + LTrim$(RTrim$(MainRec.B.B4))
End Sub
Sub UpdateLabelC ()
Form1.LabelC(1).Caption = MainRec.C.C1
Form1.LabelC(2).Caption = MainRec.C.C2
Form1.LabelC(3).Caption = MainRec.C.C3
Form1.LabelC(4).Caption = MainRec.C.C4
Form1.LabelC(5).Caption = MainRec.C.C5
End Sub
Sub UpdateLabelD ()
Form1.LabelD(1).Caption = MainRec.D.D1
Form1.LabelD(2).Caption = MainRec.D.D2
Form1.LabelD(3).Caption = MainRec.D.D3
Form1.LabelD(4).Caption = MainRec.D.D4
Form1.LabelD(5).Caption = MainRec.D.D5
Form1.LabelD(6).Caption = MainRec.D.D6
End Sub
Sub UpdateLabelE ()
Form1.LabelE(1).Caption = MainRec.E.E1
Form1.LabelE(2).Caption = MainRec.E.E2
Form1.LabelE(3).Caption = MainRec.E.E3
Form1.LabelE(4).Caption = MainRec.E.E4
Form1.LabelE(5).Caption = MainRec.E.E5
End Sub
Sub PrimeA ()
Form3.BEditF3(1).Text = MainRec.A.A1
Form3.BEditF3(2).Text = MainRec.A.A2
Form3.BEditF3(3).Text = MainRec.A.A3
Form3.BEditF3(4).Text = MainRec.A.A4
Form3.BEditF3(5).Text = MainRec.A.A5
Form3.BEditF3(6).Text = MainRec.A.A6
If MainRec.A.AC1 = 3 Then
Form3.BEditF3(7).Text = MainRec.A.A7
ElseIf MainRec.A.AC1 = 4 Then
Form3.BEditF3(8).Text = MainRec.A.A7
End If
If MainRec.A.AC1 <> 0 Then
Form3.Check1(MainRec.A.AC1).Value = 1
End If
End Sub
Sub UpdateLabelF ()
Form1.LabelF(1).Caption = MainRec.F.F1
Form1.LabelF(2).Caption = MainRec.F.F2
Form1.LabelF(3).Caption = MainRec.F.F3
If MainRec.F.FC1 <> 0 Then
Form1.Check1(MainRec.F.FC1).Value = 1
Form1.Check1(3 - MainRec.F.FC1).Value = 0
Else
Form1.Check1(1).Value = 0
Form1.Check1(2).Value = 0
End If
End Sub
Sub UpdateLabelG ()
Form1.LabelG(1).Caption = MainRec.G.G1
Form1.LabelG(2).Caption = MainRec.G.G2
Form1.LabelG(3).Caption = MainRec.G.G3
Form1.LabelG(4).Caption = MainRec.G.G4
Form1.LabelG(5).Caption = MainRec.G.G5
Form1.LabelG(6).Caption = MainRec.G.G6
Form1.LabelG(7).Caption = MainRec.G.G7
Form1.LabelG(8).Caption = MainRec.G.G8
End Sub
Sub UpdateLabelH ()
Form1.LabelH(1).Caption = MainRec.H.H1
Form1.LabelH(2).Caption = MainRec.H.H2
Form1.LabelH(3).Caption = MainRec.H.H3
Form1.LabelH(4).Caption = MainRec.H.H4
Form1.LabelH(5).Caption = MainRec.H.H5
Form1.LabelH(6).Caption = MainRec.H.H6
Form1.LabelH(7).Caption = MainRec.H.H7
Form1.LabelH(8).Caption = MainRec.H.H8
End Sub
Sub UpdateLabelI ()
Form1.LabelI(1).Caption = LTrim$(RTrim$(MainRec.I.B1)) + Chr$(10) + Chr$(13) + LTrim$(RTrim$(MainRec.I.B2)) + ", " + LTrim$(RTrim$(MainRec.I.B3)) + " " + LTrim$(RTrim$(MainRec.I.B4))
Form1.LabelI(2).Caption = LTrim$(RTrim$(MainRec.I.B5))
End Sub
Sub UpdateLabelJ ()
Form1.LabelJ(1).Caption = LTrim$(RTrim$(MainRec.J.B1)) + Chr$(10) + Chr$(13) + LTrim$(RTrim$(MainRec.J.B2)) + ", " + LTrim$(RTrim$(MainRec.J.B3)) + " " + LTrim$(RTrim$(MainRec.J.B4))
Form1.LabelJ(2).Caption = LTrim$(RTrim$(MainRec.J.B5))
End Sub
Sub UpdateFormA ()
Form3.BEditF3(1).Text = MainRec.A.A1
Form3.BEditF3(2).Text = MainRec.A.A2
Form3.BEditF3(3).Text = MainRec.A.A3
Form3.BEditF3(4).Text = MainRec.A.A4
Form3.BEditF3(5).Text = MainRec.A.A5
Form3.BEditF3(6).Text = MainRec.A.A6
If MainRec.A.AC1 <> 0 Then
Form3.Check1(MainRec.A.AC1).Value = 1
If (MainRec.A.AC1 = 3) Or (MainRec.A.AC1 = 4) Then
Form3.BEditF3(4 + MainRec.A.AC1).Text = MainRec.A.A7
End If
End If
End Sub
Sub UpdateFormB ()
Form10.BEditF10(1).Text = MainRec.B.B1
Form10.BEditF10(2).Text = MainRec.B.B2
Form10.BEditF10(3).Text = MainRec.B.B3
Form10.BEditF10(4).Text = MainRec.B.B4
Form10.BEditF10(5).Text = MainRec.B.B5
End Sub
Sub UpdateFormC ()
Form4.BEditF4(1).Text = MainRec.C.C1
Form4.BEditF4(2).Text = MainRec.C.C2
Form4.BEditF4(3).Text = MainRec.C.C3
Form4.BEditF4(4).Text = MainRec.C.C4
If MainRec.C.CC1 <> 0 Then
Form4.Check1(MainRec.C.CC1).Value = 1
Form4.Check1((MainRec.C.CC1 Mod 3) + 1).Value = 0
Form4.Check1(((MainRec.C.CC1 + 1) Mod 3) + 1).Value = 0
Else
Form4.Check1(1).Value = 0
Form4.Check1(2).Value = 0
Form4.Check1(3).Value = 0
End If
End Sub
Sub UpdateFormD ()
Form5.BEditF5(1).Text = MainRec.D.D1
Form5.BEditF5(2).Text = MainRec.D.D2
Form5.BEditF5(3).Text = MainRec.D.D3
Form5.BEditF5(4).Text = MainRec.D.D4
Form5.BEditF5(5).Text = MainRec.D.D5
Form5.BEditF5(6).Text = MainRec.D.D6
End Sub
Sub UpdateFormE ()
Form6.BEditF6(1).Text = MainRec.E.E1
Form6.BEditF6(2).Text = MainRec.E.E2
Form6.BEditF6(3).Text = MainRec.E.E3
Form6.BEditF6(4).Text = MainRec.E.E4
Form6.BEditF6(5).Text = MainRec.E.E5
End Sub
Sub UpdateFormF ()
Form7.BEditF7(1).Text = MainRec.F.F1
Form7.BEditF7(2).Text = MainRec.F.F2
Form7.BEditF7(3).Text = MainRec.F.F3
If MainRec.F.FC1 <> 0 Then
Form7.Check1(MainRec.F.FC1).Value = 1
Form7.Check1(3 - MainRec.F.FC1).Value = 0
Else
Form7.Check1(1).Value = 0
Form7.Check1(2).Value = 0
End If
End Sub
Sub UpdateFormG ()
Form8.BEditF8(1).Text = MainRec.G.G1
Form8.BEditF8(2).Text = MainRec.G.G2
Form8.BEditF8(3).Text = MainRec.G.G3
Form8.BEditF8(4).Text = MainRec.G.G4
Form8.BEditF8(5).Text = MainRec.G.G5
Form8.BEditF8(6).Text = MainRec.G.G6
Form8.BEditF8(7).Text = MainRec.G.G7
If MainRec.G.GC1 <> 0 Then
Form8.Check1(MainRec.G.GC1).Value = 1
Form8.Check1((MainRec.G.GC1 Mod 3) + 1).Value = 0
Form8.Check1(((MainRec.G.GC1 + 1) Mod 3) + 1).Value = 0
Else
Form8.Check1(1).Value = 0
Form8.Check1(2).Value = 0
Form8.Check1(3).Value = 0
End If
End Sub
Sub UpdateFormH ()
Form9.BEditF9(1).Text = MainRec.H.H1
Form9.BEditF9(2).Text = MainRec.H.H2
Form9.BEditF9(3).Text = MainRec.H.H3
Form9.BEditF9(4).Text = MainRec.H.H4
Form9.BEditF9(5).Text = MainRec.H.H5
Form9.BEditF9(6).Text = MainRec.H.H6
Form9.BEditF9(7).Text = MainRec.H.H7
If MainRec.H.HC1 <> 0 Then
Form9.Check1(MainRec.H.HC1).Value = 1
Form9.Check1((MainRec.H.HC1 Mod 3) + 1).Value = 0
Form9.Check1(((MainRec.H.HC1 + 1) Mod 3) + 1).Value = 0
Else
Form9.Check1(1).Value = 0
Form9.Check1(2).Value = 0
Form9.Check1(3).Value = 0
End If
End Sub
Sub UpdateFormI ()
Form10.BEditF10(1).Text = MainRec.I.B1
Form10.BEditF10(2).Text = MainRec.I.B2
Form10.BEditF10(3).Text = MainRec.I.B3
Form10.BEditF10(4).Text = MainRec.I.B4
Form10.BEditF10(5).Text = MainRec.I.B5
End Sub
Sub UpdateFormJ ()
Form10.BEditF10(1).Text = MainRec.J.B1
Form10.BEditF10(2).Text = MainRec.J.B2
Form10.BEditF10(3).Text = MainRec.J.B3
Form10.BEditF10(4).Text = MainRec.J.B4
Form10.BEditF10(5).Text = MainRec.J.B5
End Sub
Sub UpdateDate (Index)
Form1.Label3(Index).Caption = MainRec.T.T1
End Sub
Sub UpdateNewDate (Index)
Form1.Label3(Index).Caption = Date$
MainRec.T.T1 = Date$
End Sub